home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
mac
/
prime_CD
/
pb
/
ERAS
/
TY
/
ERA_TY.DIR
/
00129_Script_palette utility
< prev
next >
Wrap
Text File
|
1997-07-24
|
609b
|
17 lines
on castwithpal palcnum, clib
-- Finds any bitmaps that are using an obsolete palette
-- and returns a list to the message window
-- palcnum: is the number of the palette in question
-- clib: is the castlib name
if voidP(clib) then set clib = "internal"
set var = ""
repeat with x = 1 to the number of members of castlib clib
if the casttype of member x of castlib clib = #bitmap then
if the palette of member x of castlib clib = palcnum then
put x&"," after var
end if
end if
end repeat
put "members using palette "&palcnum&": "&var
end